home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
slyded
/
slide.frm
< prev
next >
Wrap
Text File
|
1993-11-29
|
4KB
|
169 lines
VERSION 2.00
Begin Form Slide
ClientHeight = 2850
ClientLeft = 1755
ClientTop = 2100
ClientWidth = 6165
ControlBox = 0 'False
Height = 3510
Left = 1710
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 2850
ScaleWidth = 6165
Top = 1485
Width = 6255
WindowState = 2 'Maximized
Begin GRAPH Graph1
DragMode = 1 'Automatic
GraphType = 6 'Line
Height = 2085
Left = 3090
TabIndex = 3
Top = 330
Visible = 0 'False
Width = 2055
End
Begin TextBox Text3
Height = 645
Left = 240
TabIndex = 2
Text = "Bullets"
Top = 1980
Visible = 0 'False
Width = 1185
End
Begin TextBox Text2
Height = 645
Left = 240
TabIndex = 1
Text = "Text"
Top = 1200
Visible = 0 'False
Width = 1185
End
Begin TextBox Text1
Height = 675
Left = 300
MultiLine = -1 'True
TabIndex = 0
Text = "Title"
Top = 240
Visible = 0 'False
Width = 1125
End
Begin Menu File
Caption = "&File"
Begin Menu Save
Caption = "&Save and Exit"
End
Begin Menu Cancel
Caption = "&Cancel and Exit"
End
End
Begin Menu Help
Caption = "&Help"
Begin Menu HelpIndex
Caption = "Help &Index"
End
Begin Menu About
Caption = "&About"
End
End
End
Dim DragX As Single, DragY As Single, SizeMode As Variant
Dim Want2Size As Variant
Sub Close_Click ()
Unload Slide
End Sub
Sub Close1_Click ()
Unload Slide
End Sub
Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
Source.Move (X - DragX), (Y - DragY)
End Sub
Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
SizeMode = False
Want2Size = False
'Label7.Caption = "SizeMode = " & SizeMode
End Sub
Sub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = 1) And (Not SizeMode) Then
Text1.MousePointer = 1
Text1.Drag 1
DragX = X
DragY = Y
End If
If (Button = 1) And (SizeMode) Then
Want2Size = True
'Label8.Caption = "Want2Size = " & Want2Size
End If
End Sub
Sub Text1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
SizeMode = True
If ((X >= 0) And (X <= 100)) Then
If (Y >= 0) And (Y <= 100) Then
Text1.MousePointer = 8
ElseIf ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height)) Then
Text1.MousePointer = 6
Else
Text1.MousePointer = 9
End If
ElseIf ((X >= (Text1.Width - 200)) And (X <= Text1.Width + 400)) Then
If (Y >= 0) And (Y <= 100) Then
Text1.MousePointer = 6
ElseIf ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height + 400)) Then
Text1.MousePointer = 8
If Want2Size Then
Text1.Width = X
Text1.Height = Y
End If
Else
Text1.MousePointer = 9
If Want2Size Then
Text1.Width = X
End If
End If
ElseIf ((Y >= 0) And (Y <= 100)) Or ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height)) Then
Text1.MousePointer = 7
Else
If Not Want2Size Then
Text1.MousePointer = 1
SizeMode = False
Want2Size = False
End If
End If
'Label1.Caption = "X = " & X
'Label2.Caption = "Y = " & Y
'Label3.Caption = "Top = " & Text1.Top
'Label4.Caption = "Left = " & Text1.Left
'Label5.Caption = "Height = " & Text1.Height
'Label6.Caption = "Width = " & Text1.Width
'Label7.Caption = "SizeMode = " & SizeMode
'Label8.Caption = "Want2Size = " & Want2Size
End Sub
Sub Text1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag 2
Want2Size = False
End Sub